home *** CD-ROM | disk | FTP | other *** search
/ Mac Easy 2010 May / Mac Life Ubuntu.iso / casper / filesystem.squashfs / usr / share / perl5 / Debconf / Element / Editor / String.pm < prev    next >
Encoding:
Perl POD Document  |  2009-03-24  |  439 b   |  23 lines
  1. #!/usr/bin/perl -w
  2. # This file was preprocessed, do not edit!
  3.  
  4.  
  5. package Debconf::Element::Editor::String;
  6. use strict;
  7. use base qw(Debconf::Element);
  8.  
  9.  
  10. sub show {
  11.     my $this=shift;
  12.  
  13.     $this->frontend->comment($this->question->extended_description."\n\n".
  14.         $this->question->description."\n");
  15.  
  16.     my $default='';
  17.     $default=$this->question->value if defined $this->question->value;
  18.  
  19.     $this->frontend->item($this->question->name, $default);
  20. }
  21.  
  22. 1
  23.